home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 023a / prop_man.zip / LABELS.SAB < prev    next >
Text File  |  1991-07-02  |  4KB  |  153 lines
  1. LABEL START
  2.   SET NULL " "
  3.   CLS
  4.   LABEL START2
  5.   SET ERROR MESSAGES OFF
  6.   SET MESSAGES OFF
  7.   SET BELL OFF
  8.   SET ESCAPE ON
  9.   GOTO SELECTION
  10. LABEL TEST1
  11.   CLS
  12.   WRITE "XXX LABEL PRINT TEST" AT 1,30
  13.   FILLIN Y/N USING "WOULD YOU LIKE TO PRINT A XXX LABEL PRINT TEST " AT 20,1
  14.     LABEL AGAIN
  15.     IF Y/N = "Y" THEN
  16.       OUTPUT PRINTER
  17.       PRINT lab.tst WHERE LIMIT = 1
  18.       OUTPUT SCREEN
  19.     ENDIF
  20.   IF Y/N = "Y" THEN
  21.   FILLIN Y/N USING "WOULD YOU LIKE TO TRY ANOTHER TEST SETUP OF LABELS? " +
  22.     AT 20,1
  23.     IF Y/N = "Y" OR Y/N = "YES" THEN
  24.       GOTO AGAIN
  25.     ENDIF
  26.   ENDIF
  27.   CLS
  28.   goto .TO/FROM
  29. LABEL SELECTION
  30.   CLS
  31.   WRITE "SELECT TYPE OF LABELS YOU WOULD LIKE TO PRINT" AT 4,12
  32.   WRITE "   1.    SINGLE LABELS BY ADDRESS CODE" AT 6,10
  33.   WRITE "   2.    LABELS FOR A GROUP (I.E. MEN02624)" AT 7,10
  34.   WRITE "   3.    LABELS FOR ALL ACCOUNTS WITH PASTDUE BALANCE" AT 8,10
  35.   WRITE "   4.    BATCH LABELS FOR ACCOUNTS" AT 9,10
  36.   WRITE "   5.    END PROCESSING AND RETURN TO MENU" AT 10,10
  37.   FILLIN SELECT USING "ENTER SELECTION 1-5 " AT 12,12
  38.     IF SELECT < 1 OR SELECT > 5 THEN
  39.       GOTO SELECTION
  40.       ELSE
  41.       GOTO .SELECT
  42.     ENDIF
  43. LABEL 1
  44.   CLS
  45.   WRITE "SINGLE LABEL GENERATION" AT 1,20
  46.   SET ERROR VARIABLE errval
  47.   FILLIN ADDCODE USING "ENTER ADDRESS CODE " AT 10,4
  48.   SET POINTER #1 errptr2 FOR CUR.MAST WHERE ADD.CODE EQ .ADDCODE
  49.     IF ERRPTR2 EQ 0 THEN
  50.     SET VAR TO/FROM TO GOOD1
  51.       GOTO TEST1
  52.     LABEL GOOD1
  53.     OUTPUT PRINTER
  54.     PRINT labLEs WHERE ADD.CODE = .ADDCODE AND LIMIT = 1
  55.     OUTPUT SCREEN
  56.       GOTO END1
  57.       ELSE
  58.       WRITE "ADDRESS CODE NOT FOUND TO EXIST" AT 23,24
  59.       BEEP;BEEP
  60.     FILLIN Y/N USING "WOULD YOU LIKE TO TRY AGAIN? " AT 24,26
  61.     IF Y/N = "Y" OR Y/N = "YES" THEN
  62.       CLS
  63.       WRITE "O.K." AT 12,40
  64.       GOTO 1
  65.       ELSE
  66.       GOTO END1
  67.       ENDIF
  68.     ENDIF
  69.     LABEL END1
  70.       GOTO SELECTION
  71. LABEL 2
  72.   CLS
  73.   WRITE "PROCESSING LABELS FOR A GROUP OF ACCOUNTS" AT 1,17
  74.   FILLIN CODE USING "ENTER GROUP CODE: " AT 15,1
  75.   SET V TO/FROM TO 2TST
  76.   GOTO TEST1
  77.     LABEL 2TST
  78.     SET POINTER #1 END FOR CUR.MAST WHERE ADD.CODE CONTAINS .CODE
  79.     IF END = 0 THEN
  80.     OUTPUT PRINTER
  81.     PRINT labLEs WHERE ADD.CODE CONTAINS .CODE
  82.     OUTPUT SCREEN
  83.       ELSE
  84.       WRITE "SELECTION NOT FOUND IN CURRENT MASTER FILE PLEASE RE-INPUT" +
  85.         AT 15,1
  86.       GOTO 2
  87.     ENDIF
  88.       GOTO SELECTION
  89. LABEL 3
  90.   CLS
  91.   WRITE "PROCESSING LABELS FOR ALL ACCOUNTS WITH PASTDUE BALANCE" at 1,10
  92.   SET V TO/FROM TO 3GOOD
  93.   GOTO TEST1
  94.     LABEL 3GOOD
  95.     OUTPUT PRINTER
  96.     PRINT labLEs SORTED BY ADD.CODE WHERE PAST.DUE > 0 AND LIMIT=2
  97.     OUTPUT SCREEN
  98.   GOTO SELECTION
  99. LABEL 4
  100.   cls
  101.   REMOVE TAB STATEMNT
  102.   PROJECT STATEMNT FROM CUR.MAST USING ADD.CODE WHERE ADD.CODE FAILS
  103.   LABEL RETRY
  104.   LOAD STATEMNT WITH PROMPTS
  105.   SET V ERROR TO "N"
  106.   CLS
  107.   WRITE "CHECKING FOR INCORRECT ADDRESS CODES -- PLEASE WAIT" AT 15,10
  108.   SET POINTER #3 END FOR STATEMNT
  109.     WHILE END = 0 THEN
  110.     SET V CODE TO ADD.CODE IN #3
  111.     SET POINTER #2 EO2 FOR CUR.MAST WHERE ADD.CODE = .CODE
  112.       IF EO2 > 0 THEN
  113.       SHOW V CODE
  114.       WRITE "NOT FOUND TO EXIST
  115.       DELETE ROWS FROM STATEMNT WHERE ADD.CODE = .CODE
  116.       SET V ERROR TO "Y"
  117.       SET V EO2 TO 0
  118.       ENDIF
  119.         NEXT #3 END
  120.     ENDWHILE
  121.     IF ERROR = "Y" THEN
  122.     WRITE "READY TO RE-INPUT BAD DATA"
  123.     SET V ERROR TO "N"
  124.       GOTO RETRY
  125.       ELSE
  126.       SET V TO/FROM TO GOOD
  127.       GOTO TEST1
  128.     LABEL GOOD
  129.     OUTPUT PRINTER
  130.     SET POINTER #1 EOF FOR STATEMNT
  131.     WHILE EOF = 0 THEN
  132.     SET V CODE TO ADD.CODE IN #1
  133.     PRINT labLEs WHERE ADD.CODE = .CODE
  134.     NEXT #1 EOF
  135.     ENDWHILE
  136.     OUTPUT SCREEN
  137.     REMOVE TABLE STATEMNT
  138.     ENDIF
  139.       GOTO SELECTION
  140. LABEL 5
  141.   CLS
  142.   RETURN
  143.  
  144.  
  145.  
  146.  
  147.  
  148.  
  149.  
  150.  
  151.  
  152.  
  153.